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SUBROUTINE  INDENTIFICATION 


A.  Title : 

B.  Programmed : 

C .  Documented ; 


Subroutine  Timer  (SRTIMER)  -  Ident  K29,  Mod.  01 
20  March  1963,  H.  W.  Houghton,  System  Development 
Corporation 

27  March  1963,  H.  W.  Houghton,  System  Development 
Corporation 


PURPOSE 

SRTIMER  is  generalized  routine  for  timing  COP  system  programs. 
USAGE 

A.  Calling  Sequence : 

L  NOP  R 

SLJ  h  SRTIMER 
L  +  1  Normal  Return 

ZRO  N 

L  +  2  A 

L  +  3  B 

L  +  h  C 

L  +  5  Px 

L  +  6  P2 


L  +  2  +  N 
L  +  3  +  N 


PN-3 

*1 


L  +  2+  N+  RMg 
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Where  R  *  number  of  modifications 

N  =  number  of  parameters  (including  the  three  control  parameters 
A,  B,  and  C  for  SRTIMER) 

A  =»  number  of  times  the  program  is  to  be  timed. 

=  0  for  timing  the  program  the  necessary  number  of  times  for  it 
to  run  10  to  100  seconds  to  obtain  an  accurate  average. 

B  =  0  for  setting  the  Accumulator,  Q-Register,  and  Index  Registers 
as  entrance  parameters. 

=  1  for  normal  function  calling  sequence,  i.e.,  normal  return  in 
a  +  1  with  parameters  following. 

=  2  for  two  returns  (normal  and  error)  in  a  +  1  and  a  +  2. 
a  3  for  return  following  calling  sequence. 

C  a  name  in  BCD  of  program  to  be  timed. 

P^a  Accumulator  contents  (B  a  0)  or  first  parameter  of  calling  sequence 
(B  f  0). 

Pga  Q- Register  contents  (B  =  0)  or  second  parameter  (B  ^  0). 

Pg=  Index  designation  (B  =  0)  or  third  parameter  (B  /  0). 

P^=  Index  contents  (B  =  0)  or  fourth  parameter  (B  /  0). 

If  B  *  0,  P<-  and  Pg,  P^.  and  Pg  may  be  given  for  a  second  and 
third  index  register. 

V  Nth  parameter  (B  ^  0). 

M^a  first  modification  (B  /  0). 

M^a  Rth  modification  (B  0). 

B.  Format  of  Function  Card 

♦SRTIMER  A  B  C  ^N'  M1  •  •  • 

where  A,  B,  C,  P^  .  .  .  P^,  M^,  .  .  .  Mp  are  as  given  above. 

C .  Printouts : 

SRTIMER  will  printout  on-line  the  running  time  of  the  program  being 

timed.  The  printout  is  as  follows: 

TIME  FOR  CCCCCCCC  ROUTINE  IS  XXXXX  SEC,  YYYYYY  MICROSEC. 

Also,  if  desired,  SRTIMER  will  printout: 

COMPUTER  IS  ZZ.ZZ  PERCENT  FAST  (or  SLOW) 

This  is  the  speed  of  the  computer  compared  with  the  machine  specifications. 
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D.  There  are  no  error  returns  from  SRTIMER. 

E.  Tape  assignments  depend  on  the  program  being  timed. 

'  F.  Jump  key  2  is  set  if  the  computer  speed  printout  is  desired. 

METHOD 

On  the  first  entry  to  SRTIMER  the  speed  of  the  computer  is  checked  by 
doing  a  loop  of  known  length.  The  constants  used  in  the  timing  portion 
are  adjusted  to  compensate  for  the  difference  of  the  individual  computer 
from  the  1604  specifications.  Also  a  check  is  made  to  determine  whether 
SRTIMER  was  loaded  in  an  even  or  an  odd  location.  The  set  of  constants 
used  is  dependent  on  the  bank  in  which  the  program  starts. 

For  all  entries  to  SRTIMER  the  type  of  calling  sequence  needed  by  the 
routine  to  be  timed  is  determined  and  an  appropriate  calling  sequence 
is  set  up.  COP  is  referenced  to  find  the  starting  location  of  the  routine 
and  this  address  is  placed  in  the  return  Jump.  The  Real  Time  Clock  is 
set  to  -  2  and  started.  When  the  clock  turns  to  zero,  the  return  jump 
to  the  subroutine  is  made.  After  the  subroutine  Is  run,  control  is 
returned  to  SRTIMER.  If  A,  l.e.  the  "number  of  times"  parameter  equals 
0  or  1,  the  computer  will  immediately  start  executing  a  loop  of  known 
duration  unitl  the  clock  changes.  When  the  time  in  the  loop  is  sub¬ 
tracted  from  the  total  times,  we  have  the  time  in  the  subroutine.  If 
A  is  other  than  0  or  1,  the  return  Jump  to  the  subroutine  is  executed 
the  proper  number  of  times  before  the  loop  is  started.  After  the  routine 
has  been  timed,  the  total  time  is  divided  by  the  number  of  times  the 
routine  has  been  executed.  This  gives  us  the  time  for  one  execution 
of  the  routine.  In  the  case  that  A  =  0,  SRTIMER  checks  to  see  if  the 
routine  took  longer  than  ten  seconds.  If  not,  it  will  determine  a  number 
of  times  (10,  100,  1,000  or  10,000)  such  that  at  least  ten  seconds  will 
elapse  during  the  timing  and  executes  the  routine  this  number  of  times. 


( 
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RESTRICTIONS 

A.  The  accuracy  is  dependent  on  the  number  of  times  the  subroutine  is 
executed.  If  the  subroutine  is  operated  one  time  the  results  will 
be  accurate  within  .05 $  or  twenty  microseconds,  whichever  is  greater. 
The  error  can  be  reduced  to  .05$  or  2  microseconds  by  executing  the 
subroutine  more  times.  Any  routines  that  use  1-0  devices  will  prob¬ 
ably  produce  inconsistant  times  due  to  variance  in  speed  of  the 
devices. 

B.  "A"  must  be  equal  to  1  if  the  routine  does  not  housekeep  itself. 

C.  "A"  should  not  be  equal  to  0  if  the  routine  initiates  an  1-0  opera¬ 
tion  and  does  not  wait  for  its  completion. 

D.  Routine  being  timed  must  not  use  the  Real  Time  Clock. 

E.  The  on-line  printer  is  used.  Other  components  may  be  needed  for 
the  subroutine  being  timed. 

F.  SRTIMER  uses  subroutines  OUTPUT,  SUBERR,  and  FLOAT. 

G.  Index  Registers  1,  2  and  3  are  always  used.  The  others  may  be 
used  by  the  subroutines  being  timed.  All  of  the  index  registers 
are  saved  and  restored  prior  to  exiting. 

H.  COPII  must  be  used.  SRTIMER  refers  to  ADDROF. 

I.  If  a  series  of  programs  are  being  timed  and  there  is  danger  of 
COPII  reallocating  space  above  IOOQOB,  a  function  card  of  the 
following  format  should  be  used. 

*  10000B  SRTIMER  .... 

This  will  reload  SRTIMER  at  10000B  and  remove  the  possibility  of 
being  destroyed  by  the  reallocation  of  space. 

TIMING 


The  timing  is  dependent  on  the  subroutine  being  timed  and  whether  or 
not  it  is  in  core  when  SRTIMER  is  called. 
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STORAGE  REQUIREMENTS 
Space  Allocation: 


Program 

146 

Constants 

26 

Printouts 

12 

Temporary  Storage 

111 

TOTAL 

295 

VALIDATION  TESTS 

A  break  point  was  set  to  stop  the  computer  Just  before  the  clock  was 
started.  When  the  computer  halted  the  break  point  was  reset  to  stop 
the  computer  after  a  fairly  long  routine  (approximately  l/3  minute) 
had  been  executed.  The  observed  time  between  restart  and  the  second 
break  point  and  the  computed  time  was  equal.  Also,  two  octals  were 
added  to  the  deck  to  allow  a  jump  to  the  normal  return  without  executing 
any  subroutine.  This  deck  was  operated  over  100  times  with  A  equal 
to  various  values.  For  A  *  1,  the  results  were  between  -20  and  20 
microseconds.  As  A  was  increased  the  error  bounds  decreased  until 
they  reached  +  2  pseconds .  Without  the  octals  several  subroutines 
were  operated.  When  runs  of  a  given  program  were  repeated,  the  re¬ 
sults  were  within  . 05%  of  the  average  value. 

REFERENCES 

A.  TM- 96662 l/005/00  Execution  Times  for  Instructions  on  the  CDC 
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B.  IMSD-447578,  System  Manual  Subroutine  Description  of  OUTPUT,  3 
June  i960,  pages  45.l4.01  f.f. 

C.  IMSD- 44578,  System  Manual  Subroutine  Description  of  SUBERR, 

21  July  1961,  pages  50*06 .01  f.f. 

D.  D4-(L)-705/0l4/00  SCF  System  Manual  Subroutine  Description  of 
FLOAT,  11  September  1962. 
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Flow  Charts 


Start  Clock 


Wait  Until 
Clock  =  0 

nz 

Loop  and 
Count  in 
lx  -  2  Until 
Clock  »  1 


YES 


Compute 
Total  Number 
of  Loop6 


Set  Switch  = 

total  No.  of 
Expected  No.  (Ix  -  3) 


YES 
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Set  Step  3 
to  Set  lx  -  2 
=  0 
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Reports  that  SRTIMER  (Subroutine  Timer) 
is  a  generalised  routine  for  timing 
COP  system  programs.  Also  reports  that 
on  the  first  entry  to  SRTIMER  the  speed 
of  the  coaputer  is  checked  by  doing 
a  loop  of  known  length.  States  that 
the  constants  used  in  the  timing 
portion  are  adjusted  to  compensate  for 
the  difference  of  the  individual 
computer  from  the  1604  specifications. 
Also  states  that  a  check  is  made  to 
determine  whether  SRTIMER  vas  loaded 
in  an  even  or  an  odd  location. 
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